@@ -1,5 +1,9 @@
Revision history for Perl extension pip
+1.19 Mon 10 May 2010 - Adam Kennedy
+ - Adding abstracts to ::API and ::FAQ
+ - Update Module::Install to 1.00
+
1.18 Mon 10 May 2010 - Adam Kennedy
- POD typo fix to keep the Debian nazis happy :)
@@ -10,7 +10,7 @@ build_requires:
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 0.97'
+generated_by: 'Module::Install version 1.00'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -43,4 +43,4 @@ resources:
ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/pip
license: http://dev.perl.org/licenses/
repository: http://svn.ali.as/cpan/trunk/pip
-version: 1.18
+version: 1.19
@@ -1,4 +1,4 @@
-use inc::Module::Install 0.95;
+use inc::Module::Install 1.00;
name 'pip';
all_from 'lib/pip.pm';
@@ -4,7 +4,7 @@ package Module::Install::Base;
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.00';
}
# Suspend handler for "redefined" warnings
@@ -9,7 +9,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -4,10 +4,11 @@ package Module::Install::Makefile;
use strict 'vars';
use ExtUtils::MakeMaker ();
use Module::Install::Base ();
+use Fcntl qw/:flock :seek/;
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -364,9 +365,9 @@ sub fix_up_makefile {
. ($self->postamble || '');
local *MAKEFILE;
- open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
+ open MAKEFILE, "+< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
+ eval { flock MAKEFILE, LOCK_EX };
my $makefile = do { local $/; <MAKEFILE> };
- close MAKEFILE or die $!;
$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
$makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
@@ -386,7 +387,8 @@ sub fix_up_makefile {
# XXX - This is currently unused; not sure if it breaks other MM-users
# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
- open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
+ seek MAKEFILE, 0, SEEK_SET;
+ truncate MAKEFILE, 0;
print MAKEFILE "$preamble$makefile$postamble" or die $!;
close MAKEFILE or die $!;
@@ -410,4 +412,4 @@ sub postamble {
__END__
-#line 539
+#line 541
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -616,8 +616,15 @@ sub _perl_version {
return $v;
}
-
-
+sub add_metadata {
+ my $self = shift;
+ my %hash = @_;
+ for my $key (keys %hash) {
+ warn "add_metadata: $key is not prefixed with 'x_'.\n" .
+ "Use appopriate function to add non-private metadata.\n" unless $key =~ /^x_/;
+ $self->{values}->{$key} = $hash{$key};
+ }
+}
######################################################################
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -8,7 +8,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.00';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';;
+ $VERSION = '1.00';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
@@ -22,7 +22,6 @@ use strict 'vars';
use Cwd ();
use File::Find ();
use File::Path ();
-use FindBin;
use vars qw{$VERSION $MAIN};
BEGIN {
@@ -32,7 +31,7 @@ BEGIN {
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.97';
+ $VERSION = '1.00';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -231,7 +230,12 @@ sub preload {
sub new {
my ($class, %args) = @_;
- FindBin->again;
+ delete $INC{'FindBin.pm'};
+ {
+ # to suppress the redefine warning
+ local $SIG{__WARN__} = sub {};
+ require FindBin;
+ }
# ignore the prefix on extension modules built from top level.
my $base_path = Cwd::abs_path($FindBin::Bin);
@@ -7,7 +7,7 @@ use Archive::Tar ();
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.18';
+ $VERSION = '1.19';
}
@@ -11,7 +11,7 @@ use Module::Plan::Base ();
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.18';
+ $VERSION = '1.19';
}
@@ -48,7 +48,7 @@ sub from_p5i {
# Create the plan, and from that the archive
return $class->new(
plan => Module::Plan::Base->read( $file, @_ ),
- );
+ );
}
sub plan {
@@ -45,7 +45,7 @@ BEGIN {
# has problems of it's own, and so by using this hack we can
# install correctly with the version of CPAN.pm bundled with
# older versions of Perl.
- for my $inc (@INC) {
+ foreach my $inc ( @INC ) {
$inc = File::Spec->rel2abs($inc) unless ref $inc;
}
}
@@ -53,7 +53,7 @@ use CPAN;
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.18';
+ $VERSION = '1.19';
}
@@ -143,7 +143,7 @@ sub read {
p5i => $p5i,
lines => \@lines,
%params,
- );
+ );
}
sub p5i {
@@ -37,7 +37,7 @@ use Module::Plan::Base ();
use vars qw{$VERSION @ISA};
BEGIN {
- $VERSION = '1.18';
+ $VERSION = '1.19';
@ISA = 'Module::Plan::Base';
}
@@ -11,7 +11,7 @@ use Module::Plan::Base ();
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.18';
+ $VERSION = '1.19';
}
@@ -6,7 +6,7 @@ use pip;
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.18';
+ $VERSION = '1.19';
}
eval {
@@ -8,7 +8,7 @@ BEGIN {
$^W = 1;
}
-my $MODULE = 'Test::CPAN::Meta 0.12';
+my $MODULE = 'Test::CPAN::Meta 0.17';
# Don't run tests for installs
use Test::More;
@@ -9,8 +9,8 @@ BEGIN {
}
my @MODULES = (
- 'Perl::MinimumVersion 1.20',
- 'Test::MinimumVersion 0.008',
+ 'Perl::MinimumVersion 1.25',
+ 'Test::MinimumVersion 0.101080',
);
# Don't run tests for installs
@@ -9,8 +9,8 @@ BEGIN {
}
my @MODULES = (
- 'Pod::Simple 3.07',
- 'Test::Pod 1.26',
+ 'Pod::Simple 3.14',
+ 'Test::Pod 1.44',
);
# Don't run tests for installs